home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 163 - Disc 1 / MF_UK_163_1.iso / pc / Files / Scenes / HOME.DIR / DevTools_3_Generate Test Sheet.ls < prev    next >
Encoding:
Text File  |  2005-10-20  |  832 b   |  27 lines
  1. global gRootPath, dV
  2.  
  3. on mouseUp me
  4.   menuTree = member("menuTree").text
  5.   repeat with i = 1 to menuTree.line.count
  6.     repeat with j = 1 to menuTree.line[i].word.count
  7.       if menuTree.line[i].word[1] contains "---" then
  8.         repeat with j = 2 to menuTree.line[i].word.count
  9.           if menuTree.line[i].word[j] contains "@@" then
  10.             Section = menuTree.line[i].word[j]
  11.             delete Section.char[1..2]
  12.             SectionPath = gRootPath & "DiscContent" & dV & Section & dV
  13.             fileList = []
  14.             repeat with i = 1 to 250
  15.               n = getNthFileNameInFolder(SectionPath, i)
  16.               if n = EMPTY then
  17.                 exit repeat
  18.               end if
  19.               fileList.append(n)
  20.             end repeat
  21.           end if
  22.         end repeat
  23.       end if
  24.     end repeat
  25.   end repeat
  26. end
  27.